Yahoo packets in VB !

[creamownedz]

'################################################# ###############'
'# #'
'# VB_Packets Yahoo Mod 2 Fully Tested! 91 Working Packets! #'
'# #'
'# Credits to creator #'
'# #'
'################################################# ###############'

Public Function AddBuddy1922(WhoFrom As String, WhoTo As String, Message As String, Group As String) As String
Dim pck As String
pck = "1À€" & WhoFrom & "À€7À€" & WhoTo & "À€14À€" & Message & "À€65À€" & Group & "À€97À€1À€"
AddBuddy1922 = DataHeader("83", pck)
Debug.Print AddBuddy1922
End Function

Public Function GameLiterati(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€180À€ltÀ€18318111à € €tyrk828hb0zaycr.xru5qg--À€13À€1À€"
GameLiterati = DataHeader("B7", pck)
Debug.Print
End Function

Public Function GameBackgammon(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€180À€bgÀ€18318111à € €pcgcfcdw7wg8zhfcvoxnqq--À€13À€1À€"
GameBackgammon = DataHeader("B7", pck)
Debug.Print
End Function

Public Function GameTokiTokiBoom(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€180À€ttbÀ€18318111 à €â‚¬236ibnipkkbtk4ufa4dgna--À€13À€1À€"
GameTokiTokiBoom = DataHeader("B7", pck)
Debug.Print
End Function

Public Function GameCheckers(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€180À€ckÀ€18318111à € €w9ky8drntpjsz3ncnwxfjw--À€13À€1À€"
GameCheckers = DataHeader("B7", pck)
Debug.Print
End Function

Public Function GameChess(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€180À€chÀ€18318111à € €fiujrx1lfgy3bluver.kvq--À€13À€1À€"
GameChess = DataHeader("B7", pck)
Debug.Print
End Function

Public Function GamePearHunter(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€180À€phÀ€18318111à € €qumvsv.jm60oeusu1wirha--À€13À€1À€"
GamePearHunter = DataHeader("B7", pck)
Debug.Print
End Function

Public Function GameDominos(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€180À€doÀ€18318111à € €rjb0bqstgg09wke9ydkljq--À€13À€1À€"
GameDominos = DataHeader("B7", pck)
Debug.Print
End Function

Public Function GameWordRacer(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€180À€wwÀ€18318111à € €zazxe_ppbqb6xrlout.sxw--À€13À€1À€"
GameWordRacer = DataHeader("B7", pck)
Debug.Print
End Function

Public Function GamePool(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€180À€plÀ€18318111à € €xnmu9vq9opxgzynzaed5ya--À€13À€1À€"
GamePool = DataHeader("B7", pck)
Debug.Print GamePool
End Function

Public Function Audible_Ladys(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.hello.ladies1À€231À€Al l the ladies in the house say...À€232À€e6e04dfe428c6bf75d5ea021ee58c58 3e53afb89À€"
Audible_Ladys = DataHeader("D0", pck)
Debug.Print Audible_Ladys
End Function

Public Function Audible_Wadddup(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.hello.whadup1À€231À€Wh a aadddup?!À€232À€e6e04dfe428c6bf75d5ea021ee58 c583e53afb89À€"
Audible_Wadddup = DataHeader("D0", pck)
Debug.Print Audible_Wadddup
End Function

Public Function Audible_HurtYou(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.taunt.dontmakeme1À€231À⠂ ¬Don't make me hurt youÀ€231À€WhateverÀ€232À€e6e04dfe428c6 bf75d5ea021ee58c583e53afb89À€"
Audible_HurtYou = DataHeader("D0", pck)
Debug.Print Audible_HurtYou
End Function

Public Function Audible_SeeYou(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.hello.seeyou1À€231À€He l lo? I know you're there. I can see you!À€232À€e6e04dfe428c6bf75d5ea021ee58c583e 53afb89À€"
Audible_SeeYou = DataHeader("D0", pck)
Debug.Print Audible_SeeYou
End Function

Public Function Audible_Echo(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.hello.echo1À€231À€Hell o ? Hello? Anybody there? Echo!À€232À€e6e04dfe428c6bf75d5ea021ee58c583 e53afb89À€"
Audible_Echo = DataHeader("D0", pck)
Debug.Print Audible_Echo
End Function



Public Function DataHeader(ByVal PacketType As String, ByVal Packet As String) As String
Dim I As Integer
Dim X As Integer
X = 0
I = Len(Packet)
Do While I > 255
I = I - 256
X = X + 1
Loop
DataHeader = "YMSG" & Chr(0) & Chr(11) & String(2, 0) & Chr(X) & Chr(I) & Chr(0) & Chr("&H" & PacketType) & String(8, 0) & Packet
Debug.Print DataHeader
End Function

[saswata]

the pcks not working bro..